Przykad A.8. Funkcja largeAdd w jzyku Scheme
;; Metoda pomocnicza
(define (millionplus n) (+ 1000000 n))

;; Sumuj liczby z przedziau 1..probSize
(define (largeAdd probSize)
   (let loop ([i probSize]
              [total 0])
      (if (= i 0)
         total
         (loop (sub1 i) (+ i total)))))
